cnn1 = New ADODB.Connection()
cnn1.ConnectionString = "driver={SQL Server};server=lbm1;" & _
                        "uid=sa;pwd=sa;database=northwind"
cnn1.CursorLocation = ADODB.CursorLocationEnum.adUseClient
cnn1.Open()
cmd1 = New ADODB.Command()
rstProducts = New ADODB.Recordset()
rstProducts.Open("select * from products", cnn1)
rstProducts.MoveFirst()
Call DisplayFields()
